home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
aie8911.zip
/
SPECHELP.ARI
< prev
next >
Wrap
Text File
|
1989-08-27
|
832b
|
36 lines
%%%%%%%%%% end prepcomp generated declarations %%%%%%%%%%%%%%%%%%%%
:- module specs_help.
:- visible disp1 / 3.
get_specs_help :-
log_nl,
open_if_possible( $specs.hlp$ ,
$ can not be opened.$,
Inhandle),
!,
log_write(
$~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~$),
log_nl,
process_file_lines( LineVar,
Inhandle,
not_a_file_handle,
disp1(Inhandle,
not_a_file_handle,
LineVar ) ),
log_write($Press any key to continue...$),
flush,
get0_noecho(_),
log_nl.
disp1(Inhandle,
_ ,
Line ) :-
log_write(Line), log_nl.